*! version 1.0.0 PR 10Oct97.
program define _fracmdp
* 1=decimal places, rest=numbers sep by spaces
* Output in $S_1.
local dp `1'
mac shift
while "`1'"!="" {
	cap confirm num `1'
	if _rc { local ddp `ddp' `1' }
	else {
		if int(2*`1')==(2*`1') { local ddp `ddp' `1' } /* respect .5 */
		else {
			_fracddp `1' `dp'
			local ddp `ddp' $S_1
		}
	}
	mac shift
}
global S_1 `ddp'
end